home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 70 / Tiger_Disk_070_20xx_Tiger-Crew-Disk_de_Side_B.d64 / 131 -ende- (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  31 lines
  1. 5 poke53280,12:poke53281,11:print"[147][152]     aus lukian's nonsens-werkstatt     ";
  2. 6 print"[164][164][164][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][164][164][164]";
  3. 7 print"   [180][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][170]   ";
  4. 8 print"[163][163][163][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][163][163][163]";
  5. 10 forz=1to1000:next:poke 53281,.:poke53280,.:printchr$(147)chr$(14)chr$(8)
  6. 15 za=10::zm=int(25*rnd(1))+1::zn=0
  7. 20 print"  [201]ch hab' ne [218]ahl im [211]peicher, die [196]u    erraten sollst![151]":forz=1to1000:next
  8. 25 print" ([196]amit's nicht zu kompliziert wird, ist die [218]ahl nicht groesser als 25)"
  9. 30 forz=1to1000:next :poke19,1:input"[147] [129][206]a, was denkst [196]u?  [156]";zr:poke19,0
  10. 35 zn = zn + 1
  11. 40 if zr>zmthen print"[147][159]   [206][197][197]!  [211]o gross ist die [218]ahl nicht!":print:goto 30
  12. 45 if zr<zm then print"[147][158]  [197]twas mehr darf's schon sein!" :print : goto 30
  13. 50 forc=1to15:poke646,c:ifzr=zmthenprint"[147] [213]ff!  [199]eschafft!":next
  14. 55 fore=1to10:poke53281,3:::     ::::::::::::::::::::     :::poke53281,.:next
  15. 60 print"[158]               mit ";zn;"mal raten! ":forz=1to1000:next
  16. 65 fore=1to10:poke53280,3   ::::::::::::::::::::   poke53280,.:next
  17. 70 printchr$(142)"[183][205][175][175][175][175][175][210][210][210][210][210][198][198][198][198][198][195][195][195][195][195][196][196][196][196][196][197][197][197][197][197][183][183][183][183][183][205][175]" :poke56325,0
  18. 75 print"das war's!  :-)   ";:poke56325,55:printchr$(14)
  19. 90 print" [147][153] [200]ast [196]u wirklich an ein tolles [208]rogramm geglaubt? [196]u wurdest";
  20. 91 print" darauf darauf hin- gewiesen, dass es sich nur um [194]loedsinn handelt"
  21. 92 forz=1to2500:next:print"[147]  [196]ann also [212]schuess! - - - "
  22. 95 forz=1to1000:next:print"[147]":forp=1to27:poke646,p:
  23. 100 print"";:printchr$(142)
  24. 104 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  25. 105 print"     [207][183][183][183][208] [170][183][205]   [207][180] [207][183][183][183][205]  [207][183][183][183][208]   [207][180]   ";
  26. 110 print"     [180][207][183][183][183] [170][170][205][205]  [180][180] [180][207][183][205][170]  [180][207][183][183][183]   [180][180]   ";
  27. 115 print"     [180][207][183]   [170][170] [205][205] [180][180] [180][180] [170][170]  [180][207][183]     [180][180]   ";
  28. 120 print"     [180][204][175][175][175] [170][170]  [205][205][180][180] [180][204][175][206][170]  [180][204][175][175][175]   [204][180]   ";
  29. 125 print"     [204][175][175][175][186] [170][186]   [205][175][180] [204][175][175][175][206]  [204][175][175][175][186]   [162][187]   ";
  30. 126 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:next:print"[147]";:sys58253
  31.